home *** CD-ROM | disk | FTP | other *** search
/ PC/CD Gamer UK 39 / PCGAMER39.bin / games / amber / amberhub.dxr / 00003_colorDepth & gamma-fade utilities.ls < prev    next >
Encoding:
Text File  |  1996-11-08  |  1.2 KB  |  61 lines
  1. on resetSound whatLevel
  2.   if the number of menus > 1 then
  3.     set the checkMark of menuItem (8 - the soundLevel) of menu 2 to 0
  4.   end if
  5.   set the soundLevel to whatLevel
  6.   if the number of menus > 1 then
  7.     set the checkMark of menuItem (8 - the soundLevel) of menu 2 to 1
  8.   end if
  9. end
  10.  
  11. on REPORT outString
  12.   global testData
  13.   if objectp(testData) then
  14.     testData(mWriteString, outString & RETURN)
  15.   else
  16.     put outString
  17.   end if
  18. end
  19.  
  20. on REPORT2 outString
  21.   global testData
  22.   if objectp(testData) then
  23.     testData(mWriteString, outString & RETURN)
  24.   else
  25.     put outString
  26.   end if
  27. end
  28.  
  29. on gammaFade upOrDown, howFast
  30.   global gCPU
  31.   set speedCodes to [#slow: "18", #fast: "36", #instant: "100"]
  32.   set mySpeed to getaProp(speedCodes, howFast)
  33.   if voidp(mySpeed) then
  34.     set mySpeed to getProp(speedCodes, #fast)
  35.   end if
  36.   if upOrDown = #down then
  37.     if gCPU = #Mac then
  38.       MonitorFade("down", mySpeed)
  39.     else
  40.     end if
  41.   else
  42.     updateStage()
  43.     if gCPU = #Mac then
  44.       MonitorFade("up", mySpeed)
  45.     else
  46.     end if
  47.   end if
  48. end
  49.  
  50. on setColor howManybits
  51.   set the colorDepth to howManybits
  52.   if the colorDepth <> howManybits then
  53.   else
  54.     put "OK, we did it.."
  55.   end if
  56. end
  57.  
  58. on suspendSounds
  59.   exit
  60. end
  61.